inherited fmAddSpecCond_mult: TfmAddSpecCond_mult
  Left = 1035
  Top = 86
  Width = 794
  Height = 874
  BorderIcons = [biMinimize, biMaximize]
  Caption = 'fmAddSpecCond_mult'
  Constraints.MinHeight = 874
  Constraints.MinWidth = 794
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label2: TLabel [0]
    Left = 13
    Top = 48
    Width = 149
    Height = 13
    Caption = #1057#1090#1088#1091#1082#1090#1091#1088#1085#1086#1077' '#1087#1086#1076#1088#1072#1079#1076#1077#1083#1077#1085#1080#1077
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  inherited sbBottom: TStatusBar
    Top = 809
    Width = 778
  end
  inherited Panel1: TPanel
    Width = 778
    Height = 33
    inherited BitBtn1: TBitBtn
      Left = 488
      Top = 6
      Width = 157
      Caption = #1057#1086#1079#1076#1072#1090#1100' '#1087#1086' '#1096#1072#1073#1083#1086#1085#1091
    end
    inherited BitBtn2: TBitBtn
      Left = 650
      Top = 6
    end
  end
  object cbPodr: TcxComboBox [3]
    Left = 14
    Top = 66
    ParentFont = False
    Properties.DropDownListStyle = lsFixedList
    Properties.Items.Strings = (
      #1044#1077#1090#1089#1072#1076
      #1053#1072#1095'. '#1075#1080#1084#1085#1072#1079#1080#1103
      #1057#1088#1077#1076#1085#1103#1103' '#1096#1082#1086#1083#1072
      #1057#1090#1072#1088#1096#1072#1103' '#1096#1082#1086#1083#1072
      #1051#1072#1075#1077#1088#1100)
    Properties.OnCloseUp = cxRadioGroup1PropertiesChange
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clWindowText
    Style.Font.Height = -16
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
    TabOrder = 2
    Text = #1044#1077#1090#1089#1072#1076
    Width = 171
  end
  object GroupBox1: TGroupBox [4]
    Left = 5
    Top = 103
    Width = 436
    Height = 69
    Caption = #1044#1086#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1086#1077' '#1089#1086#1075#1083#1072#1096#1077#1085#1080#1077
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    TabStop = True
    object Label7: TLabel
      Left = 8
      Top = 16
      Width = 89
      Height = 13
      Caption = #1044#1072#1090#1072' '#1087#1086#1076#1087#1080#1089#1072#1085#1080#1103
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 288
      Top = 16
      Width = 90
      Height = 13
      Caption = #1044#1072#1090#1072' '#1079#1072#1074#1077#1088#1096#1077#1085#1080#1103
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 149
      Top = 16
      Width = 110
      Height = 13
      Caption = #1053#1072#1095#1072#1083#1086' '#1087#1088#1077#1076#1086#1089#1090'. '#1091#1089#1083'.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object SCDATEEND: TcxDateEdit
      Left = 288
      Top = 32
      ParentFont = False
      Properties.OnCloseUp = SCDATEPropertiesCloseUp
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -16
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.IsFontAssigned = True
      TabOrder = 0
      Width = 121
    end
    object cxDBDateEdit1: TcxDateEdit
      Left = 152
      Top = 32
      ParentFont = False
      Properties.OnCloseUp = SCDATEPropertiesCloseUp
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -16
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.IsFontAssigned = True
      TabOrder = 1
      Width = 121
    end
    object SCDATE: TcxDateEdit
      Left = 8
      Top = 32
      ParentFont = False
      Properties.OnCloseUp = SCDATEPropertiesCloseUp
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -16
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.IsFontAssigned = True
      TabOrder = 2
      Width = 121
    end
  end
  object GroupBox2: TGroupBox [5]
    Left = 4
    Top = 180
    Width = 766
    Height = 621
    Caption = #1059#1089#1083#1091#1075#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    TabStop = True
    object Label14: TLabel
      Left = 9
      Top = 508
      Width = 142
      Height = 13
      Align = alCustom
      Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081' '#1082' '#1089#1086#1075#1083#1072#1096#1077#1085#1080#1102
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label11: TLabel
      Left = 105
      Top = 236
      Width = 32
      Height = 13
      Caption = #1058#1072#1088#1080#1092
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label13: TLabel
      Left = 9
      Top = 237
      Width = 81
      Height = 13
      Caption = #1056#1072#1089#1095#1077#1090#1085#1072#1103' '#1076#1072#1090#1072
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label16: TLabel
      Left = 290
      Top = 236
      Width = 95
      Height = 13
      Caption = #1056#1072#1089#1095#1077#1090#1085#1099#1081' '#1087#1077#1088#1080#1086#1076
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object DBMemo2: TDBMemo
      Left = 9
      Top = 88
      Width = 752
      Height = 94
      Align = alCustom
      DataField = 'STDESCR'
      DataSource = dsServType
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      ScrollBars = ssVertical
      TabOrder = 4
    end
    object cbIsSkidka: TcxCheckBox
      Left = 5
      Top = 281
      Caption = #1057#1082#1080#1076#1082#1072'/'#1053#1072#1076#1073#1072#1074#1082#1072
      Properties.OnChange = cxCheckBox1PropertiesChange
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 2
      Width = 121
    end
    object GroupBox5: TGroupBox
      Left = 7
      Top = 300
      Width = 418
      Height = 136
      TabOrder = 3
      object Label24: TLabel
        Left = 368
        Top = 57
        Width = 34
        Height = 19
        Align = alCustom
        Caption = #1088#1091#1073'.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label20: TLabel
        Left = 9
        Top = 82
        Width = 115
        Height = 13
        Align = alCustom
        Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081' '#1082' '#1089#1082#1080#1076#1082#1077
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object cxDBRadioGroup2: TcxRadioGroup
        Left = 8
        Top = 48
        Properties.Columns = 2
        Properties.Items = <
          item
            Caption = #1040#1073#1089'.'
            Value = 0
          end
          item
            Caption = #1074' %'
            Value = 1
          end>
        Properties.OnChange = cxDBRadioGroup2PropertiesChange
        Properties.OnEditValueChanged = cxDBRadioGroup2PropertiesEditValueChanged
        TabOrder = 0
        Height = 32
        Width = 209
      end
      object cxDBRadioGroup1: TcxRadioGroup
        Left = 8
        Top = 7
        Properties.Columns = 2
        Properties.Items = <
          item
            Caption = #1057#1082#1080#1076#1082#1072
            Value = 0
          end
          item
            Caption = #1053#1072#1076#1073#1072#1074#1082#1072
            Value = 1
          end>
        Properties.OnEditValueChanged = cxDBRadioGroup1PropertiesEditValueChanged
        TabOrder = 1
        Height = 35
        Width = 401
      end
      object edSCDISCOUNT: TcxMaskEdit
        Left = 240
        Top = 56
        ParentFont = False
        Properties.MaskKind = emkRegExpr
        Properties.EditMask = '\d+'
        Properties.MaxLength = 0
        Properties.OnChange = edSCDISCOUNT1Change
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clGray
        Style.Font.Height = -16
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = []
        Style.TextColor = clBlack
        Style.IsFontAssigned = True
        TabOrder = 2
        Width = 121
      end
      object mdSCDISCOUNTNOTE: TcxMemo
        Left = 8
        Top = 97
        Lines.Strings = (
          '')
        ParentFont = False
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clGray
        Style.Font.Height = -13
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = []
        Style.TextColor = clBlack
        Style.IsFontAssigned = True
        TabOrder = 3
        Height = 33
        Width = 400
      end
    end
    object cxRadioGroup1: TcxRadioGroup
      Left = 3
      Top = 13
      Properties.Columns = 4
      Properties.Items = <
        item
          Caption = #1056#1072#1079#1086#1074#1072#1103
          Value = 0
        end
        item
          Caption = #1054#1089#1085#1086#1074#1085#1072#1103
          Value = 1
        end
        item
          Caption = #1044#1086#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1072#1103
          Value = 2
        end
        item
          Caption = #1042#1089#1090#1091#1087#1080#1090'. '#1074#1079#1085#1086#1089
          Value = '3'
        end>
      Properties.OnChange = cxRadioGroup1PropertiesChange
      Style.Edges = []
      Style.Shadow = False
      TabOrder = 0
      Height = 38
      Width = 446
    end
    object cxDBTextEdit2: TcxDBTextEdit
      Left = 104
      Top = 253
      TabStop = False
      DataBinding.DataField = 'STTARIF'
      DataBinding.DataSource = dsServType
      ParentFont = False
      Properties.ReadOnly = True
      Style.Color = clMoneyGreen
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clBlack
      Style.Font.Height = -13
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.TextStyle = [fsBold]
      Style.IsFontAssigned = True
      TabOrder = 5
      Width = 121
    end
    object cbArchiveserv: TcxCheckBox
      Left = 9
      Top = 11
      Caption = #1040#1088#1093#1080#1074#1085#1072#1103' '#1091#1089#1083#1091#1075#1072
      Enabled = False
      Properties.OnChange = cbArchiveservPropertiesChange
      TabOrder = 1
      Width = 113
    end
    object Panel2: TPanel
      Left = 7
      Top = 184
      Width = 418
      Height = 49
      TabOrder = 6
      object Label15: TLabel
        Left = 5
        Top = 4
        Width = 60
        Height = 13
        Caption = #1050#1086#1083#1080#1095#1077#1089#1090#1074#1086
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label10: TLabel
        Left = 169
        Top = 4
        Width = 69
        Height = 13
        Caption = #1042#1088#1077#1084#1103' '#1085#1072#1095#1072#1083#1072
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label17: TLabel
        Left = 304
        Top = 4
        Width = 87
        Height = 13
        Caption = #1042#1088#1077#1084#1103' '#1086#1082#1086#1085#1095#1072#1085#1080#1103
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object dblSTTIMEBEGIN: TcxDBLabel
        Left = 166
        Top = 19
        AutoSize = True
        DataBinding.DataField = 'STTIMEBEGIN'
        DataBinding.DataSource = dsServType
        ParentColor = False
        ParentFont = False
        Style.Color = clMoneyGreen
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clBlack
        Style.Font.Height = -15
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = []
        Style.IsFontAssigned = True
      end
      object dblSTTIMEEND: TcxDBLabel
        Left = 302
        Top = 19
        AutoSize = True
        DataBinding.DataField = 'STTIMEEND'
        DataBinding.DataSource = dsServType
        ParentColor = False
        ParentFont = False
        Style.Color = clMoneyGreen
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clBlack
        Style.Font.Height = -15
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = []
        Style.IsFontAssigned = True
      end
      object DBEdit1: TcxMaskEdit
        Left = 8
        Top = 19
        ParentFont = False
        Properties.MaskKind = emkRegExpr
        Properties.EditMask = '\d+'
        Properties.MaxLength = 0
        Properties.OnEditValueChanged = DBEdit1PropertiesEditValueChanged
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clGray
        Style.Font.Height = -13
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = []
        Style.TextColor = clBlack
        Style.IsFontAssigned = True
        TabOrder = 2
        Width = 41
      end
    end
    object gbGrafPlat: TGroupBox
      Left = 431
      Top = 232
      Width = 330
      Height = 377
      Caption = #1043#1088#1072#1092#1080#1082' '#1087#1083#1072#1090#1077#1078#1077#1081
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 7
      Visible = False
      object dbgGP: TcxGrid
        Left = 2
        Top = 15
        Width = 326
        Height = 360
        Align = alClient
        TabOrder = 0
        TabStop = False
        LookAndFeel.Kind = lfStandard
        object tvGP: TcxGridDBTableView
          NavigatorButtons.ConfirmDelete = False
          NavigatorButtons.First.Visible = True
          NavigatorButtons.PriorPage.Visible = True
          NavigatorButtons.Prior.Visible = True
          NavigatorButtons.Next.Visible = True
          NavigatorButtons.NextPage.Visible = True
          NavigatorButtons.Last.Visible = True
          NavigatorButtons.Insert.Visible = False
          NavigatorButtons.Append.Visible = False
          NavigatorButtons.Delete.Visible = False
          NavigatorButtons.Edit.Visible = False
          NavigatorButtons.Post.Visible = False
          NavigatorButtons.Cancel.Visible = False
          NavigatorButtons.Refresh.Visible = False
          NavigatorButtons.SaveBookmark.Visible = False
          NavigatorButtons.GotoBookmark.Visible = False
          NavigatorButtons.Filter.Visible = False
          DataController.DataSource = dsGP
          DataController.Summary.DefaultGroupSummaryItems = <>
          DataController.Summary.FooterSummaryItems = <
            item
              Format = '#,###0'
              Kind = skSum
              FieldName = 'GPAMOUNT'
              Column = tvGPGPAMOUNT
            end
            item
              Format = '0'
              Kind = skCount
              FieldName = 'gpid'
              Column = tvGPGPDATE
            end>
          DataController.Summary.SummaryGroups = <>
          OptionsBehavior.CellHints = True
          OptionsBehavior.ImmediateEditor = False
          OptionsBehavior.IncSearch = True
          OptionsCustomize.ColumnFiltering = False
          OptionsCustomize.ColumnGrouping = False
          OptionsData.CancelOnExit = False
          OptionsData.Deleting = False
          OptionsData.DeletingConfirmation = False
          OptionsData.Editing = False
          OptionsData.Inserting = False
          OptionsView.NavigatorOffset = 10
          OptionsView.CellAutoHeight = True
          OptionsView.ColumnAutoWidth = True
          OptionsView.Footer = True
          OptionsView.GroupByBox = False
          OptionsView.Indicator = True
          OptionsView.ShowColumnFilterButtons = sfbAlways
          Preview.Visible = True
          Styles.Content = DMInv.cxData
          Styles.IncSearch = DMInv.cxKrasniyText
          Styles.Selection = DMInv.cxJoltiyFon
          Styles.Header = DMInv.cxSiniyText
          object tvGPGPDATE: TcxGridDBColumn
            Caption = #1044#1072#1090#1072
            DataBinding.FieldName = 'GPDATE'
            Width = 60
          end
          object tvGPGPAMOUNT: TcxGridDBColumn
            Caption = #1055#1083#1072#1090#1077#1078
            DataBinding.FieldName = 'GPAMOUNT'
            Width = 73
          end
          object tvGPGPBEGINPERIOD: TcxGridDBColumn
            Caption = #1053#1072#1095#1072#1083#1086' '#1087#1077#1088#1080#1086#1076#1072
            DataBinding.FieldName = 'GPBEGINPERIOD'
            Width = 85
          end
          object tvGPGPENDPERIOD: TcxGridDBColumn
            Caption = #1050#1086#1085#1077#1094' '#1087#1077#1088#1080#1086#1076#1072
            DataBinding.FieldName = 'GPENDPERIOD'
            Width = 92
          end
        end
        object cxGridLevel1: TcxGridLevel
          GridView = tvGP
        end
      end
    end
    object lPeriod: TcxTextEdit
      Left = 289
      Top = 252
      TabStop = False
      ParentFont = False
      Properties.ReadOnly = True
      Style.Color = clMoneyGreen
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clGray
      Style.Font.Height = -13
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = [fsBold]
      Style.TextColor = clBlack
      Style.IsFontAssigned = True
      TabOrder = 8
      Text = 'lPeriod'
      Width = 121
    end
    object gbPodrazd: TGroupBox
      Left = 452
      Top = 29
      Width = 309
      Height = 49
      Caption = #1055#1086#1076#1088#1072#1079#1076#1077#1083#1077#1085#1080#1077
      TabOrder = 9
      Visible = False
      object ltvPodr: TdxLookupTreeView
        Left = 8
        Top = 17
        Width = 293
        Height = 24
        CanSelectParents = False
        DropDownRows = 25
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        TabOrder = 0
        TabStop = True
        TreeViewColor = clWindow
        TreeViewCursor = crDefault
        TreeViewFont.Charset = DEFAULT_CHARSET
        TreeViewFont.Color = clWindowText
        TreeViewFont.Height = -11
        TreeViewFont.Name = 'MS Sans Serif'
        TreeViewFont.Style = []
        TreeViewIndent = 19
        TreeViewReadOnly = False
        TreeViewShowButtons = True
        TreeViewShowHint = False
        TreeViewShowLines = True
        TreeViewShowRoot = True
        TreeViewSortType = stNone
        OnCloseUp = ltvPodrCloseUp
        DisplayField = 'SDNAME'
        DividedChar = '.'
        ListSource = dsSD
        KeyField = 'SDID'
        ListField = 'SDNAME'
        Options = [trDBCanDelete, trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
        ParentField = 'SDPARID'
        RootValue = 0
        TextStyle = tvtsShort
        Alignment = taLeftJustify
      end
    end
    object cxButton5: TcxButton
      Left = 451
      Top = 200
      Width = 115
      Height = 23
      Caption = #1057#1086#1079#1076#1072#1090#1100' '#1075#1088#1072#1092#1080#1082
      TabOrder = 10
      OnClick = cxButton5Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
        333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
        0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
        07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
        07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
        0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
        33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
        B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
        3BB33773333773333773B333333B3333333B7333333733333337}
      NumGlyphs = 2
    end
    object cxButton4: TcxButton
      Left = 573
      Top = 200
      Width = 153
      Height = 23
      Caption = #1056#1077#1076#1072#1082#1090#1080#1088#1086#1074#1072#1090#1100' '#1075#1088#1072#1092#1080#1082
      TabOrder = 11
      OnClick = cxButton4Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
        000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
        00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
        F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
        0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
        FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
        FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
        0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
        00333377737FFFFF773333303300000003333337337777777333}
      NumGlyphs = 2
    end
    object edSCDATARASCH: TcxMaskEdit
      Left = 8
      Top = 251
      ParentFont = False
      Properties.MaskKind = emkRegExpr
      Properties.EditMask = '\d+'
      Properties.MaxLength = 0
      Properties.OnEditValueChanged = edSCDATARASCHPropertiesEditValueChanged
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clGray
      Style.Font.Height = -13
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.TextColor = clBlack
      Style.IsFontAssigned = True
      TabOrder = 12
      Width = 41
    end
    object DBMemo1: TcxMemo
      Left = 8
      Top = 528
      ParentFont = False
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clGray
      Style.Font.Height = -13
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.TextColor = clBlack
      Style.IsFontAssigned = True
      TabOrder = 13
      Height = 81
      Width = 417
    end
    object Panel_stoim: TPanel
      Left = 8
      Top = 440
      Width = 417
      Height = 65
      BevelOuter = bvNone
      TabOrder = 14
      object Label19: TLabel
        Left = 12
        Top = 12
        Width = 118
        Height = 13
        Caption = #1058#1072#1088#1080#1092' '#1089' '#1091#1095#1077#1090#1086#1084' '#1089#1082#1080#1076#1082#1080
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label21: TLabel
        Left = 143
        Top = 12
        Width = 105
        Height = 13
        Caption = #1050#1086#1083'. '#1088#1072#1089#1095'. '#1087#1077#1088#1080#1086#1076#1086#1074
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 260
        Top = 12
        Width = 138
        Height = 13
        Caption = #1057#1091#1084#1084#1072' '#1087#1086' '#1076#1086#1087'. '#1089#1086#1075#1083#1072#1096#1077#1085#1080#1102
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label12: TLabel
        Left = 380
        Top = 38
        Width = 34
        Height = 19
        Align = alCustom
        Caption = #1088#1091#1073'.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object eSCTARIFWITHDISCOUNT: TcxTextEdit
        Left = 13
        Top = 30
        ParentFont = False
        Properties.ReadOnly = True
        Style.Color = clMoneyGreen
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clBlack
        Style.Font.Height = -16
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = []
        Style.IsFontAssigned = True
        TabOrder = 0
        Text = '0'
        Width = 108
      end
      object eKolPeriod: TcxTextEdit
        Left = 143
        Top = 30
        TabStop = False
        ParentFont = False
        Properties.ReadOnly = True
        Style.Color = clMoneyGreen
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clGray
        Style.Font.Height = -16
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = []
        Style.TextColor = clBlack
        Style.IsFontAssigned = True
        TabOrder = 1
        Text = '0'
        Width = 74
      end
      object eSCAMOUNT: TcxTextEdit
        Left = 264
        Top = 30
        ParentFont = False
        Properties.ReadOnly = True
        Style.Color = clMoneyGreen
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clBlack
        Style.Font.Height = -16
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = []
        Style.IsFontAssigned = True
        TabOrder = 2
        Text = '0'
        Width = 113
      end
    end
  end
  object cxDBLookupComboBox1: TcxLookupComboBox [6]
    Left = 16
    Top = 232
    ParentFont = False
    Properties.DropDownListStyle = lsFixedList
    Properties.DropDownRows = 20
    Properties.KeyFieldNames = 'STID'
    Properties.ListColumns = <
      item
        FieldName = 'STNAME'
      end>
    Properties.ListOptions.ShowHeader = False
    Properties.ListSource = dsServType
    Properties.OnCloseUp = cxDBLookupComboBox1PropertiesCloseUp
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clWindowText
    Style.Font.Height = -13
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
    TabOrder = 5
    Width = 425
  end
  object bCalc: TcxButton [7]
    Left = 456
    Top = 120
    Width = 129
    Height = 33
    Caption = #1056#1072#1089#1095#1077#1090' '#1090#1072#1088#1080#1092#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 6
    Visible = False
    OnClick = bCalcClick
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFF7
      0007FFFFFF700070FBB0FFFFF00FBB0700077000007000788088088880288880
      00FB080890888808800008888088880888080808002888800088088880228888
      88880808000000000000088888880FFFFFFF080000080FFFFFFF080E0E080FFF
      FFFF080000080FFFFFFF088888880FFFFFFF700000007FFFFFFF}
  end
  object cbApproved: TcxCheckBox [8]
    Left = 608
    Top = 120
    Caption = #1054#1076#1086#1073#1088#1077#1085#1086'?'
    ParentColor = False
    ParentFont = False
    Style.Color = clMoneyGreen
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clWindowText
    Style.Font.Height = -19
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
    TabOrder = 7
    Width = 121
  end
  inherited dlgDS: TDataSource
    Left = 440
    Top = 58
  end
  object dsServType: TDataSource
    DataSet = qServType
    Left = 320
    Top = 232
  end
  object qServType: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT ST.*, '#39#39' AS SDNAME'
      'FROM SERVICES_TYPE ST'
      'WHERE ST.STID = -1'
      'UNION'
      'SELECT ST.*, SD.SDNAME'
      'FROM SERVICES_TYPE ST'
      'INNER JOIN SYS_DIC Sd ON SD.SDID = ST.STEDIZMER'
      'WHERE  ST.STISDELETE IS NULL'
      '    AND ST.STTYPE = :STTYPE'
      '    AND ST.STPODR LIKE :PODR'
      '    AND ST.STISARCHIVE = :arch'
      '    AND ST.STID <> 406'
      'ORDER BY 2')
    GeneratorField.Field = 'STID'
    Left = 352
    Top = 232
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'STTYPE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PODR'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'arch'
        ParamType = ptUnknown
      end>
    object qServTypeSTID: TIntegerField
      FieldName = 'STID'
      Origin = '"SERVICES_TYPE"."STID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qServTypeSTNAME: TIBStringField
      DisplayLabel = #1059#1089#1083#1091#1075#1072
      FieldName = 'STNAME'
      Origin = '"SERVICES_TYPE"."STNAME"'
      Size = 255
    end
    object qServTypeSTDESCR: TIBStringField
      DisplayLabel = #1054#1087#1080#1089#1072#1085#1080#1077
      FieldName = 'STDESCR'
      Origin = '"SERVICES_TYPE"."STDESCR"'
      Size = 2048
    end
    object qServTypeSTTARIF: TIBBCDField
      DisplayLabel = #1058#1072#1088#1080#1092
      FieldName = 'STTARIF'
      Origin = '"SERVICES_TYPE"."STTARIF"'
      Required = True
      DisplayFormat = '#,###0'
      Precision = 18
      Size = 2
    end
    object qServTypeSTDATEBEGIN: TDateField
      DisplayLabel = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072
      FieldName = 'STDATEBEGIN'
      Origin = '"SERVICES_TYPE"."STDATEBEGIN"'
    end
    object qServTypeSTDATEEND: TDateField
      DisplayLabel = #1044#1072#1090#1072' '#1079#1072#1074#1077#1088#1096
      FieldName = 'STDATEEND'
      Origin = '"SERVICES_TYPE"."STDATEEND"'
    end
    object qServTypeSTNOTE: TIBStringField
      DisplayLabel = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
      FieldName = 'STNOTE'
      Origin = '"SERVICES_TYPE"."STNOTE"'
      Size = 255
    end
    object qServTypeSTTIMEENTER: TDateTimeField
      FieldName = 'STTIMEENTER'
      Origin = '"SERVICES_TYPE"."STTIMEENTER"'
    end
    object qServTypeSTTIMEEDIT: TDateTimeField
      FieldName = 'STTIMEEDIT'
      Origin = '"SERVICES_TYPE"."STTIMEEDIT"'
    end
    object qServTypeSTISDELETE: TIntegerField
      FieldName = 'STISDELETE'
      Origin = '"SERVICES_TYPE"."STISDELETE"'
      Visible = False
    end
    object qServTypeSTUSERENTER: TIBStringField
      FieldName = 'STUSERENTER'
      Origin = '"SERVICES_TYPE"."STUSERENTER"'
      Size = 40
    end
    object qServTypeSTUSEREDIT: TIBStringField
      FieldName = 'STUSEREDIT'
      Origin = '"SERVICES_TYPE"."STUSEREDIT"'
      Size = 40
    end
    object qServTypeSTTYPE: TIntegerField
      FieldName = 'STTYPE'
      Origin = '"SERVICES_TYPE"."STTYPE"'
    end
    object qServTypeSTEDIZMER: TIntegerField
      FieldName = 'STEDIZMER'
      Origin = '"SERVICES_TYPE"."STEDIZMER"'
    end
    object qServTypeSDNAME: TIBStringField
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qServTypeSTTIME: TTimeField
      FieldName = 'STTIME'
      Origin = '"SERVICES_TYPE"."STTIME"'
    end
    object qServTypeSTPODRTYPE: TIntegerField
      FieldName = 'STPODRTYPE'
      Origin = '"SERVICES_TYPE"."STPODRTYPE"'
    end
    object qServTypeSTISARCHIVE: TIntegerField
      FieldName = 'STISARCHIVE'
      Origin = '"SERVICES_TYPE"."STISARCHIVE"'
    end
    object qServTypeSTPODR: TIBStringField
      FieldName = 'STPODR'
      Origin = '"SERVICES_TYPE"."STPODR"'
    end
    object qServTypeSTPERIODOPLATY: TIntegerField
      FieldName = 'STPERIODOPLATY'
      Origin = '"SERVICES_TYPE"."STPERIODOPLATY"'
    end
    object qServTypeSTSYSPODR: TIntegerField
      FieldName = 'STSYSPODR'
      Origin = '"SERVICES_TYPE"."STSYSPODR"'
    end
    object qServTypeSTISCALCGRAF: TIntegerField
      FieldName = 'STISCALCGRAF'
      Origin = '"SERVICES_TYPE"."STISCALCGRAF"'
    end
    object qServTypeSDID: TIntegerField
      FieldName = 'SDID'
      Origin = '"SERVICES_TYPE"."SDID"'
    end
    object qServTypeSTTIMEBEGIN: TTimeField
      FieldName = 'STTIMEBEGIN'
      Origin = '"SERVICES_TYPE"."STTIMEBEGIN"'
    end
    object qServTypeSTTIMEEND: TTimeField
      FieldName = 'STTIMEEND'
      Origin = '"SERVICES_TYPE"."STTIMEEND"'
    end
  end
  object qPayData: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction2
    DataSource = dlgDS
    SQL.Strings = (
      'SELECT GP.GPDATE, SUM(GP.GPAMOUNT)'
      'FROM SC_GRAFPLAT_TEMP GP'
      'WHERE GP.SCID = :SCID'
      '    AND GP.GPAMOUNT > 0'
      'GROUP BY 1')
    GeneratorField.Field = 'PDID'
    Left = 632
    Top = 288
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'SCID'
        ParamType = ptUnknown
      end>
    object qPayDataGPDATE: TDateField
      FieldName = 'GPDATE'
      Origin = '"SC_GRAFPLAT_TEMP"."GPDATE"'
    end
    object qPayDataSUM: TFMTBCDField
      DefaultExpression = '#,##0.00'
      FieldName = 'SUM'
      ProviderFlags = []
      currency = True
      Precision = 18
      Size = 6
    end
  end
  object dsPayData: TDataSource
    DataSet = qPayData
    Left = 600
    Top = 288
  end
  object dsGP: TDataSource
    DataSet = mdGrafPlat
    Left = 512
    Top = 504
  end
  object qCurPeriod: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    DataSource = dlgDS
    SQL.Strings = (
      'SELECT GP.GPDATE'
      'FROM SC_GRAFPLAT GP'
      
        'WHERE GP.SCID = :SCID AND :data BETWEEN GP.GPBEGINPERIOD and GP.' +
        'GPENDPERIOD'
      ''
      '')
    Left = 547
    Top = 222
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'SCID'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'data'
        ParamType = ptUnknown
      end>
    object qCurPeriodGPDATE: TDateField
      FieldName = 'GPDATE'
      Origin = '"SC_GRAFPLAT"."GPDATE"'
    end
  end
  object qSD: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT t1.sdparid, t1.sdid, t1.sdname, t1.SDISDELETE'
      'FROM'
      '('
      'WITH   recursive'
      '   tree (SDNAME, SDID, SDPARID, SDISDELETE)'
      
        '   AS (SELECT SD.SDNAME, SD.SDID, sd.SDPARID, sd.SDISDELETE FROM' +
        ' SYS_DIC SD'
      '      WHERE sd.SDPARID = :SDPARID'
      '      UNION ALL'
      '      SELECT SD1.SDNAME, SD1.SDID, sd1.SDPARID, sd1.SDISDELETE'
      ''
      '      FROM SYS_DIC SD1'
      '          INNER JOIN tree t '
      '           ON t.sdid = sd1.SDPARID)'
      ' SELECT  SDNAME, SDID, SDPARID, SDISDELETE FROM tree t'
      ') AS t1'
      'WHERE t1.SDISDELETE = 0'
      'UNION'
      
        'SELECT -1 AS SDPARID, -1 AS SDID, null AS SDNAME, 0 AS SDISDELET' +
        'E'
      'FROM SYS_DIC SD'
      'WHERE SD.SDID = :SDPARID AND SD.SDISDELETE = 0'
      'order by 1'
      '')
    GeneratorField.Field = 'SDID'
    Left = 696
    Top = 208
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'SDPARID'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'SDPARID'
        ParamType = ptUnknown
      end>
    object qSDSDID: TIntegerField
      FieldName = 'SDID'
      ProviderFlags = []
    end
    object qSDSDPARID: TIntegerField
      FieldName = 'SDPARID'
      ProviderFlags = []
    end
    object qSDSDNAME: TIBStringField
      DisplayLabel = #1069#1083#1077#1084#1077#1085#1090
      FieldName = 'SDNAME'
      ProviderFlags = []
      Size = 2304
    end
  end
  object dsSD: TDataSource
    DataSet = qSD
    Left = 667
    Top = 206
  end
  object qPeriodOplaty: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT FIRST 1 PO.POID'
      'FROM PERIOD_OPLATY PO'
      'WHERE PO.POIS_ACTIVE = 1')
    Left = 592
    Top = 632
    object qPeriodOplatyPOID: TIntegerField
      FieldName = 'POID'
      Origin = '"PERIOD_OPLATY"."POID"'
    end
  end
  object mdGrafPlat: TdxMemData
    Indexes = <>
    SortOptions = []
    SortedField = 'GPDATE'
    Left = 513
    Top = 540
    object mdGrafPlatgpid: TIntegerField
      FieldName = 'gpid'
    end
    object mdGrafPlatgpmonth: TIntegerField
      FieldName = 'gpmonth'
    end
    object mdGrafPlatGPCOUNTPAYDATE: TSmallintField
      FieldName = 'GPCOUNTPAYDATE'
    end
    object mdGrafPlatGPCOUNTDAYMONTH: TIntegerField
      FieldName = 'GPCOUNTDAYMONTH'
    end
    object mdGrafPlatGPTARIF: TFloatField
      FieldName = 'GPTARIF'
    end
    object mdGrafPlatGPDATE: TDateField
      FieldName = 'GPDATE'
    end
    object mdGrafPlatGPNOTEEDIT: TStringField
      FieldName = 'GPNOTEEDIT'
      Size = 255
    end
    object mdGrafPlatGPAMOUNT: TFloatField
      FieldName = 'GPAMOUNT'
      DisplayFormat = '#,###0'
    end
    object mdGrafPlatGPCOUNT: TFloatField
      FieldName = 'GPCOUNT'
    end
    object mdGrafPlatGPBEGINPERIOD: TDateField
      FieldName = 'GPBEGINPERIOD'
    end
    object mdGrafPlatGPENDPERIOD: TDateField
      FieldName = 'GPENDPERIOD'
    end
  end
  object qCreateSC: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      
        'SELECT * FROM SP_ADD_SC( :PID, :SCDATE, :SCDATEBEGIN, :SCDATEEND' +
        ', :SCDISCOUNT, :SCTYPEOFDISCOUNT,'
      
        '                   :SCDISCOUNTNOTE, :SCTYPEOFDISC, :SCTARIF, :SC' +
        'TARIFWITHDISCOUNT, :SCAMOUNT,'
      
        '                   :SCISGRAFEDIT, :SCDATARASCH, :POID, :STID, :S' +
        'COUNT, :SNOTE, :SCAPPROVED, :PODR_ID, :PODR_TYPE)')
    Left = 640
    Top = 152
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PID'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'SCDATE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'SCDATEBEGIN'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'SCDATEEND'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'SCDISCOUNT'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'SCTYPEOFDISCOUNT'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'SCDISCOUNTNOTE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'SCTYPEOFDISC'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'SCTARIF'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'SCTARIFWITHDISCOUNT'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'SCAMOUNT'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'SCISGRAFEDIT'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'SCDATARASCH'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'POID'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'STID'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'SCOUNT'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'SNOTE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'SCAPPROVED'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PODR_ID'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PODR_TYPE'
        ParamType = ptUnknown
      end>
    object qCreateSCSCID: TIntegerField
      FieldName = 'SCID'
      Origin = '"SP_ADD_SC"."SCID"'
    end
  end
  object sqlCreateGP: TIBSQL
    Database = DMInv.DBRead
    SQL.Strings = (
      
        'EXECUTE PROCEDURE SP_ADD_GP(:SCID, :GPMONTH, :GPCOUNTPAYDATE, :G' +
        'PCOUNTDAYMONTH, :GPTARIF, :GPDATE,'
      
        '                 :GPAMOUNT, :GPCOUNT, :GPBEGINPERIOD, :GPENDPERI' +
        'OD);')
    Transaction = DMInv.IBTransaction1
    Left = 672
    Top = 152
  end
  object cdsErrors: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 344
    Top = 39
  end
  object qErrors: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'select cast(null as D_INT) as PID,'
      '       cast(null as D_STR255) as FIRST_NAME,'
      '       cast(null as D_STR255) as MIDDL_NAME,'
      '       cast(null as D_STR255) as LAST_NAME'
      'from rdb$database')
    Left = 288
    Top = 40
  end
end
